OS. OpenSTAAD出力の生成

「MsgBox(nodesCount, vbInformation, "No. of Nodes in the Model ")」と入力し、<Enter>キーを押します。
ボタンをクリックしたときに、数値のnodeCountの値がメッセージボックスのテキスト文字列に追加されます。
「MsgBox(beamCount, vbInformation, "No. of Members in the Model ")」と入力します。
同様に、ボタンをクリックしたときにbeamCountの値がメッセージボックスのテキスト文字列に追加されます。

最終的なプログラムは次のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mStaadObj As Object
        Dim nodesCount As Integer
        Dim beamCount As Integer

        mStaadObj = GetObject(, "StaadPro.OpenSTAAD")
        nodesCount = mStaadObj.geometry.GetNodeCount()
        beamCount = mStaadObj.geometry.GetMemberCount()
        MsgBox(nodesCount, vbInformation, "No. of Nodes in the Model ")
        MsgBox(beamCount, vbInformation, "No. of Members in the Model ")
    End Sub
End Class